﻿Public Class WebForm9
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Function getmedals(ByVal medals As Integer)
        Dim retval As String
        retval = ""
        For i = 1 To medals
            retval = retval + "<img src=""pictures/p433a.jpg"" alt=""*"">"
        Next
        Return retval

    End Function

End Class